home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIDemos.lzh / Skarla_Atome.lha / AtomeHD / Install-Atome < prev    next >
Text File  |  2001-11-19  |  4KB  |  195 lines
  1. ;****************************
  2.  
  3. (set #sub-dir "")            ;sub directory containing data files
  4. (set #readme-file "ReadMe")        ;name of readme file
  5. (set #highs-file "highs")            ;name of high scores file
  6. (set #cleanup "")            ;files to delete after install
  7. (set #demo "Atome.exe")
  8.  
  9. ;****************************
  10. ;----------------------------
  11. ; checks if given program is installed, if not abort install
  12. ; #program - to check
  13.  
  14. (procedure P_ChkRun
  15.   (if
  16.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  17.     ("")
  18.     (abort
  19.       (cat
  20.     "You must install \"" #program "\" first!\n"
  21.     "It must be accessible via the path.\n"
  22.     "You can find it in the \"" #package "\" package."
  23.       )
  24.     )
  25.   )
  26. )
  27.  
  28. ;----------------------------
  29. ; Wait for inserting disk
  30. ; IN:  #AD_disk - name of disk
  31. ; OUT: -
  32.  
  33. (procedure P_disk
  34.     (message ("Ensure the file \"%s\" is available in RAM:" #demo))
  35. )
  36.  
  37. ;****************************
  38.  
  39. (if
  40.   (exists #readme-file)
  41.   (if
  42.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  43.     ("")
  44.     (run ("SYS:Utilities/More %s" #readme-file))
  45.   )
  46. )
  47.  
  48. (set #program "xfddecrunch")
  49. (set #package "XFD")
  50. (P_ChkRun)
  51.  
  52.  
  53. (set #program "WHDLoad")
  54. (set #package "WHDLoad") 
  55. (P_ChkRun)
  56.  
  57. (if
  58.   (getenv "WHDLInstPath")
  59.   (set @default-dest (getenv "WHDLInstPath"))
  60. )
  61. (set #dest
  62.   (askdir
  63.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  64.     (help @askdir-help)
  65.     (default @default-dest)
  66.     (disk)
  67.   )
  68. )
  69. (run ("setenv WHDLInstPath \"%s\"\ncopy ENV:WHDLInstPath ENVARC:" @default-dest))
  70. (set #dest (tackon #dest @app-name))
  71. (if
  72.   (exists #dest)
  73.   (
  74.     (set #choice
  75.       (askbool
  76.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  77.         (default 1)
  78.         (choices "Delete" "Skip")
  79.         (help @askbool-help)
  80.       )
  81.     )
  82.     (if
  83.       (= #choice 1)
  84.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  85.     )
  86.   )
  87. )
  88. (makedir #dest
  89.   (help @makedir-help)
  90.   (infos)
  91. )
  92.  
  93. ;----------------------------
  94.  
  95. (copyfiles
  96.   (help @copyfiles-help)
  97.   (source ("%s.Slave" @app-name))
  98.   (dest #dest)
  99. )
  100. (if
  101.   (exists ("%s.coloricon" @app-name))
  102.   (set #icon
  103.     (askchoice
  104.       (prompt "\nWhich icon would you like to install?\n")
  105.       (default 0)
  106.       (choices "NewIcon" "ColorIcon")
  107.       (help @askchoice-help)
  108.     )
  109.   )
  110.   (set #icon 0)
  111. )
  112. (select #icon
  113.   (set #icon ("%s.newicon" @app-name))
  114.   (set #icon ("%s.coloricon" @app-name))
  115. )
  116. (copyfiles
  117.   (help @copyfiles-help)
  118.   (source #icon)
  119.   (newname ("%s.info" @app-name))
  120.   (dest #dest)
  121. )
  122. (tooltype
  123.   (dest (tackon #dest @app-name))
  124.   (settooltype "Slave")
  125.   (settooltype "PreLoad")
  126. )
  127. (tooltype
  128.   (dest (tackon #dest @app-name))
  129.   (settooltype "PreLoad" "")
  130.   (settooltype "Slave" ("%s.Slave" @app-name))
  131.   (setdefaulttool "WHDLoad")
  132.   (setstack 10240)
  133.   (noposition)
  134. )
  135. (if
  136.   (exists #readme-file)
  137.   (copyfiles
  138.     (help @copyfiles-help)
  139.     (source #readme-file)
  140.     (dest #dest)
  141.   )
  142. )
  143. (copyfiles
  144.     (help @copyfiles-help)
  145.     (source ("OSEmu.exe" @app-name))
  146.     (dest #dest)
  147. )
  148. (if
  149.   (exists ("%s.info" #readme-file))
  150.   (
  151.     (copyfiles
  152.       (help @copyfiles-help)
  153.       (source ("%s.info" #readme-file))
  154.       (dest #dest)
  155.     )
  156.     (tooltype
  157.       (dest (tackon #dest #readme-file))
  158.       (noposition)
  159.     )
  160.   )
  161. )
  162.  
  163. (if
  164.   (= #sub-dir "")
  165.   ("")
  166.   (
  167.     (set #dest (tackon #dest #sub-dir))
  168.     (makedir #dest
  169.       (help @makedir-help)
  170.     )
  171.   )
  172. )
  173. (if
  174.   (exists #highs-file)
  175.   (copyfiles
  176.     (help @copyfiles-help)
  177.     (source #highs-file)
  178.     (dest #dest)
  179.   )
  180. )
  181.  
  182. ;----------------------------
  183.  
  184. (P_Disk)
  185. (if
  186.   (= 0 (run ("xfddecrunch RAM:%s %s >CON:///1000//CLOSE ALL" #demo #dest)))
  187.   ("")
  188.   (abort "\"xfddecrunch\" has failed to decompress the demo")
  189. )
  190. ;----------------------------
  191.  
  192. (run ("Delete %s ALL QUIET FORCE" #cleanup))
  193.  
  194. (exit)
  195.